//---------------------------------------------------------------------------


#pragma hdrstop

#include "TColors.h"

//---------------------------------------------------------------------------
TColors::TColors() :
  Gra(-1)
{
  GraColor[0] = clGreen;
  GraColor[1] = clBlack;
  GraColor[2] = clBlue;
  GraColor[3] = clRed;
  GraColor[4] = clDkGray;
  GraColor[5] = clFuchsia;
  GraColor[6] = clAqua;
  GraColor[7] = clLtGray;
  GraColor[8] = clMaroon;
  GraColor[9] = clMedGray;
  GraColor[10] = clMoneyGreen;
  GraColor[11] = clOlive;
  GraColor[12] = clPurple;
  GraColor[13] = clCream;
  GraColor[14] = clSilver;
  GraColor[15] = clSkyBlue;
  GraColor[16] = clTeal;
  GraColor[17] = clYellow;

}
//---------------------------------------------------------------------------
TColors::~TColors()
{
  //TODO: Add your source code here
}
//---------------------------------------------------------------------------
TColor __fastcall TColors::GetGraColor()
{
  if (Gra > 16) Gra = 0;
  Gra++;
  return GraColor[Gra];
}
#pragma package(smart_init)

